Raw data measured by Innova are plotted using the codes below:
p <- dt_innova[, time_ := hms::as_hms(paste( hour(datetime), minute(datetime), second(datetime), sep = ":") )]%>%
setorder(datetime) %>%
ggplot(aes(time_, sf6_conc, color = paste("Ch.", innova_ch))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("Innova channels")+
# guides(color = guide_legend(nrow = 1)) +
scale_y_log10() +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) #+
# theme(legend.position = "top")
ggplotly(p)
p <- dt_velocicalc[, time_ := hms::as_hms(paste( hour(datetime), minute(datetime), second(datetime), sep = ":") )]%>%
setorder(datetime) %>%
ggplot(aes(time_, vel, color = paste("VC-", vc_unit))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("VC unit")+
guides(color = guide_legend(nrow = 1)) +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) +
theme(legend.position = "top")
ggplotly(p)
p <-
dt_velocicalc[, time_ := hms::as_hms(paste( hour(datetime), minute(datetime), second(datetime), sep = ":") )]%>%
setorder(datetime) %>%
ggplot(aes(time_, temperature, color = paste("VC-", vc_unit))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("VC unit")+
guides(color = guide_legend(nrow = 1)) +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) +
theme(legend.position = "top")
ggplotly(p)
p <-
dt_velocicalc[, time_ := hms::as_hms(paste( hour(datetime), minute(datetime), second(datetime), sep = ":") )]%>%
setorder(datetime) %>%
ggplot(aes(time_, RH, color = paste("VC-", vc_unit))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("VC unit")+
guides(color = guide_legend(nrow = 1)) +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) +
theme(legend.position = "top")
ggplotly(p)
p <- dt_wind_sensor[, time_ := hms::as_hms(format(datetime, format = "%H:%M:%S") )] %>%
.[!is.na(time_)] %>%
setorder(datetime) %>%
# .[, test_id := fct_inorder(paste("Test",test_id)) ] %>%
ggplot(aes(time_, vel_mag_WIMDA_19 , color = paste("Station", wind_sensor_unit))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("Wind sensor unit") +
guides(color = guide_legend(nrow = 1)) +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) +
theme(legend.position = "top")
ggplotly(p)
p <- dt_wind_sensor[, time_ := hms::as_hms(format(datetime, format = "%H:%M:%S") )] %>%
.[!is.na(time_)] %>%
setorder(datetime) %>%
# .[, test_id := fct_inorder(paste("Test",test_id)) ] %>%
ggplot(aes(time_, vel_mag_WIMWV_3 , color = paste("Station", wind_sensor_unit))) +
geom_line() +
facet_grid(fct_inorder(format(date(datetime), format = "%b %d"))~., scales = "free_y") +
scale_color_discrete("Wind sensor unit") +
guides(color = guide_legend(nrow = 1)) +
coord_cartesian(xlim = c(hms::as_hms("10:00:00"),hms::as_hms("22:00:00")) ) +
theme(legend.position = "top")
ggplotly(p)